home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 December / 2004-12 CHIP.iso / CHIP / Porady / Srodowisko PHP-MySQL / ACTIVESTATE PERL ADD-ON / PERL_add-on.exe / {app} / perl / lib / flush.pl < prev    next >
Text File  |  2004-06-01  |  674b  |  33 lines
  1. #
  2. # This library is no longer being maintained, and is included for backward
  3. # compatibility with Perl 4 programs which may require it.
  4. #
  5. # In particular, this should not be used as an example of modern Perl
  6. # programming techniques.
  7. #
  8. # Suggested alternative: IO::Handle
  9. #
  10. ;# Usage: &flush(FILEHANDLE)
  11. ;# flushes the named filehandle
  12.  
  13. ;# Usage: &printflush(FILEHANDLE, "prompt: ")
  14. ;# prints arguments and flushes filehandle
  15.  
  16. sub flush {
  17.     local($old) = select(shift);
  18.     $| = 1;
  19.     print "";
  20.     $| = 0;
  21.     select($old);
  22. }
  23.  
  24. sub printflush {
  25.     local($old) = select(shift);
  26.     $| = 1;
  27.     print @_;
  28.     $| = 0;
  29.     select($old);
  30. }
  31.  
  32. 1;
  33.